unit MaisControles01;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, GIFImg,
  Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
  IWExtCtrls, IWCompButton, IWHTMLControls;

type
  TfrmMaisControles01 = class(TIWAppForm)
    IWImage1: TIWImage;
    IWImageFile1: TIWImageFile;
    IWImageButton1: TIWImageButton;
    IWButton1: TIWButton;
    IWURLWindow1: TIWURLWindow;
    IWURL1: TIWURL;
    IWButton2: TIWButton;
    procedure IWButton1Click(Sender: TObject);
    procedure IWImageButton1Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
  public
  end;

implementation

uses MaisControles02;

{$R *.dfm}


procedure TfrmMaisControles01.IWButton1Click(Sender: TObject);
begin
  Release;
end;

procedure TfrmMaisControles01.IWButton2Click(Sender: TObject);
begin
  with TfrmMaisControles02.Create(WebApplication) do begin
    Show;
  end;
end;

procedure TfrmMaisControles01.IWImageButton1Click(Sender: TObject);
begin
  IWURLWindow1.URI := 'http://www.atozed.com/intraweb/blog';
end;

end.
